unit uConfiguracoes;

interface

type
  TConfiguracao = class
  private
    function GetLogin: string;
    procedure SetLogin(const Value: string);
    function GetSenha: string;
    procedure SetSenha(const Value: string);
  published
    property Login:string read GetLogin write SetLogin;
    property Senha:string read GetSenha write SetSenha;
  end;

var
  Configuracao:TConfiguracao;

implementation

uses
  uUtils;

{ TConfiguracao }


procedure TConfiguracao.SetLogin(const Value: string);
begin
  Set_Arquivo_Ini('Acesso','Login',Value);
end;

function TConfiguracao.GetLogin: string;
begin
  result := Get_Arquivo_Ini('Acesso','Login');
end;

procedure TConfiguracao.SetSenha(const Value: string);
begin
  Set_Arquivo_Ini('Acesso','Senha',Value);
end;

function TConfiguracao.GetSenha: string;
begin
  result := Get_Arquivo_Ini('Acesso','Senha');;
end;

end.
